home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / packages / big-menubar.el < prev    next >
Encoding:
Text File  |  1995-06-21  |  6.9 KB  |  228 lines
  1. ;; big-menubar.el --- an alternate menubar
  2.  
  3. ;; Copyright (C) 1994 Free Software Foundation, Inc.
  4.  
  5. ;; Author: Dror Caspi <dcaspi@qualcomm.com>
  6. ;; Modified by: jwz and allender and haydens@ll.mit.edu
  7. ;; Keywords: mouse
  8.  
  9. ;; This file is part of XEmacs.
  10.  
  11. ;; XEmacs is free software; you can redistribute it and/or modify it
  12. ;; under the terms of the GNU General Public License as published by
  13. ;; the Free Software Foundation; either version 2, or (at your option)
  14. ;; any later version.
  15.  
  16. ;; XEmacs is distributed in the hope that it will be useful, but
  17. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19. ;; General Public License for more details.
  20.  
  21. ;; You should have received a copy of the GNU General Public License
  22. ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  23. ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  24.  
  25. ;;; Synched up with: Not in FSF.
  26.  
  27. ;;; Code:
  28.  
  29. ;;
  30. ;; Remove redundant macro commands
  31. ;;
  32. (delete-menu-item '("Edit" "Start Macro Recording"))
  33. (delete-menu-item '("Edit" "End Macro Recording"))
  34. (delete-menu-item '("Edit" "Execute Last Macro"))
  35.  
  36. (defconst big-menubar
  37.   (purecopy-menubar
  38.    (list
  39.     (assoc "File" default-menubar)
  40.     (append
  41.      (assoc "Edit" default-menubar)
  42.      '("---"
  43.        ("Mark"
  44.     ["Here"                set-mark-command        t]
  45.     ["Word"                mark-word            t]
  46.     ["Sentence"            mark-end-of-sentence        t]
  47.     ["Paragraph"            mark-paragraph            t]
  48.     ["Page"                mark-page            t]
  49.     ["Balanced Expression"        mark-sexp            t]
  50.     ["Lisp Function"        mark-defun            t]
  51.     ["C Function"            mark-c-function            t]
  52.     ["Whole Buffer"            mark-whole-buffer        t]
  53.     )
  54.        "---"
  55.        ("Search"
  56.     ["Forward..."            isearch-forward            t]
  57.     ["Backward..."            isearch-backward        t]
  58.     "---"
  59.     ["Regexp Forward..."        isearch-forward-regexp        t]
  60.     ["Regexp Backward..."        isearch-backward-regexp        t]
  61.     "---"
  62.     ["Words Forward..."        word-search-forward        t]
  63.     ["Words Backward..."        word-search-backward        t]
  64.     )
  65.        ("Replace"
  66.     ["Query..."            query-replace            t]
  67.     ["Regexp Query..."        query-replace-regexp        t]
  68.     "---"
  69.     ["All..."            replace-string            t]
  70.     ["Regexp All..."        replace-regexp            t]
  71.     )
  72.        "---"
  73.        ("Transpose"
  74.     ["Characters"            transpose-chars            t]
  75.     ["Words"            transpose-words            t]
  76.     ["Lines"            transpose-lines            t]
  77.     ["Sentences"            transpose-sentences        t]
  78.     ["Paragraphs"            transpose-paragraphs        t]
  79.     ["Balanced Expressions"        transpose-sexps            t]
  80.     )
  81.        "---"
  82.        ("Register"
  83.     ["Copy to Register..."        copy-to-register        (mark)]
  84.     ["Paste Register..."        insert-register            t]
  85.     "---"
  86.     ["Save Point to Register"    point-to-register        t]
  87.     ["Jump to Register"        register-to-point        t]
  88.     )
  89.        ("Rectangles"
  90.     ["Kill Rectangle"        kill-rectangle            t]
  91.     ["Yank Rectangle"        yank-rectangle            t]
  92.     ["Rectangle to Register"    copy-rectangle-to-register    t]
  93.     ["Rectangle from Register"    insert-register            t]
  94.     )
  95.        "---"
  96.        ("Sort"
  97.     ["Lines"            sort-lines            (mark)]
  98.     ["Paragraphs"            sort-paragraphs            (mark)]
  99.     ["Pages"            sort-pages            (mark)]
  100.     ["Columns"            sort-columns            (mark)]
  101.     ["Regexp..."            sort-regexp-fields        (mark)]
  102.     )
  103.        ("Center"
  104.     ["Line"                center-line            t]
  105.     ["Paragraph"            center-paragraph        t]
  106.     ["Region"            center-region            (mark)]
  107.     )
  108.        ("Indent"
  109.     ["As Previous Line"        indent-relative            t]
  110.     ["To Column..."            indent-to-column        t]
  111.     "---"
  112.     ["Region"            indent-region            (mark)]
  113.     ["Balanced Expression"        indent-sexp            t]
  114.     ["C Expression"            indent-c-exp            t]
  115.     )
  116.        "---"
  117.        ("Narrow"
  118.     ["To Region"            narrow-to-region        (mark)]
  119.     ["To Page"            narrow-to-page            t]
  120.     "---"
  121.     ["Cancel"            widen
  122.      (not (and (= (point-min) 1) (= (point-max) (1+ (buffer-size)))))]
  123.     )
  124.        ))
  125.     (assoc "Options" default-menubar)
  126.     '("Motion"
  127.       ["Goto Mark"            exchange-point-and-mark         (mark t)]
  128.       ["Goto Line..."            goto-line            t]
  129.       "---"
  130.       ["End of Balanced Parentheses ( )"    forward-list        t]
  131.       ["Beginning of Balanced Parentheses ( )"    backward-list        t]
  132.       ["Next Opening Parenthesis ("        down-list        t]
  133.       ["Previous Opening Parenthesis ("        backward-up-list    t]
  134.       ["Next Closing Parenthesis )"        up-list            t]
  135.       "---"
  136.       ["End of Balanced Expression"        forward-sexp        t]
  137.       ["Beginning of Balanced Expression"    backward-sexp        t]
  138.       "---"
  139.       ["End of Function"        end-of-defun        t]
  140.       ["Beginning of Function"        beginning-of-defun        t]
  141.       "---"
  142.       ["Next Page"            forward-page            t]
  143.       ["Previous Page"            backward-page            t]
  144.       "---"
  145.       ["End of Buffer"            end-of-buffer            t]
  146.       ["Beginning of Buffer"        beginning-of-buffer        t]
  147.       "---"
  148.       ["Save Current Position..."    point-to-register        t]
  149.       ["Goto Saved Position..."        register-to-point        t]
  150.       "---"
  151.       ["Set Marker..."            set-user-marker            t]
  152.       ["Goto Marker..."            goto-user-marker        t]
  153.       ["List Markers"            list-markers            t]
  154.       "---"
  155.       ["Set Goal Column"        set-goal-column            t]
  156.       ["Cancel Goal Column"        (set-goal-column t)    goal-column]
  157.       )
  158.     '("Run"
  159.       ["Compile..."            compile                t]
  160.       ["Kill Compilation"        kill-compilation        t]
  161.       "---"
  162.       ["Next Error"            next-error            t]
  163.       ["Previous Error"            previous-error            t]
  164.       ["Goto Error"            compile-goto-error        t]
  165.       "---"
  166.       ["GDB Debugger"            gdb                t]
  167.       )
  168.     '("Utilities"
  169.       ["Shell"                shell                t]
  170.       "---"
  171.       ("Mail"
  172.        ["Send"                mail                t]
  173.        ["Read"                rmail                t]
  174.        ["Read Folder..."        rmail-input            t]
  175.        )
  176.       ["Dired..."            dired                t]
  177.       "---"
  178.       ["Grep..."            grep                t]
  179.       ("Tags"
  180.        ["Set Tags Table File..."    visit-tags-table        t]
  181.        "---"
  182.        ["Show Occurrence..."        find-tag            t]
  183.        ["Show Occurrence (Other)..."    find-tag-other-window        t]
  184.        ["Next Occurrence"        (find-tag nil)            t]
  185.        ["Next Occurrence (Other)"    (find-tag-other-window nil)    t]
  186.        "---"
  187.        ["Search by Tags..."        tags-search            t]
  188.        ["Query Replace by Tags..."    tags-query-replace        t]
  189.        ["Continue Search/Replace"    tags-loop-continue        t]
  190.        "---"
  191.        ["Next File"            next-file            t]
  192.        "---"
  193.        ["List Tags in File..."        list-tags            t]
  194.        ["List Tags by Regexp..."    tags-apropos            t]
  195.        )
  196.       "---"
  197.       ("Spell Check"
  198.        ["Word"                ispell-word            t]
  199.        ["Complete Word"            ispell-complete-word        t]
  200.        ["Region"            ispell-region            t]
  201.        ["Whole Buffer"            ispell-buffer            t]
  202.        )
  203.       "---"
  204.       ("Compare Windows"
  205.        ["Exact Match"            compare-windows            t]
  206.        ["Ignore White Space"        (compare-windows t)        t]
  207.        )
  208.       "---"
  209.       ["Hex Edit File..."        hexl-find-file            t]
  210.       )
  211.     '("Macro"
  212.       ["Start Macro Recording"        start-kbd-macro
  213.                     (not defining-kbd-macro)]
  214.       ["End Macro Recording"        end-kbd-macro        defining-kbd-macro]
  215.       ["Name Last Macro..."        name-last-kbd-macro    last-kbd-macro]
  216.       ["Insert Macro in Buffer..."    insert-kbd-macro             t]
  217.       ["Execute Last Macro"        call-last-kbd-macro    last-kbd-macro]
  218.       )
  219.     '("Buffers"
  220.       :filter buffers-menu-filter
  221.       ["List All Buffers" list-buffers t]
  222.       "---")
  223.     nil
  224.     (assoc "Help" default-menubar)
  225.     )))
  226.  
  227. (set-menubar big-menubar)
  228.